#!/usr/bin/perl
print "Enter Number: \n";
my $x = <>;
my $y = sqrt( $x );
print "$y\n";
